/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.90.02.sit / SC.022.ScreenFKey / ScreenFKEY.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 53 63 72 65 65 6e | 46 4b 45 59 2e 70 00 00 |..Screen|FKEY.p..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 24 17 00 | 00 07 c6 a1 4f 2b 2b a1 |.....$..|....O++.|
|00000060| 4f 2b 2b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |O++.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dd da 00 00 |........|........|
|00000080| 7b 20 70 61 73 6d 61 74 | 20 2d 71 20 2d 6b 20 2d |{ pasmat| -q -k -|
|00000090| 74 20 32 20 2d 3a 20 61 | 46 4b 45 59 36 2e 70 20 |t 2 -: a|FKEY6.p |
|000000a0| 46 4b 45 59 36 2e 70 20 | 2d 72 20 2d 75 20 7d 0d |FKEY6.p |-r -u }.|
|000000b0| 0d 7b 2a 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |.{*#####|########|
|000000c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000e0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000000f0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000100| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000110| 0d 23 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.#      |        |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000150| 20 20 20 20 20 0d 23 09 | 41 70 70 6c 65 20 4d 61 |     .#.|Apple Ma|
|00000160| 63 69 6e 74 6f 73 68 20 | 44 65 76 65 6c 6f 70 65 |cintosh |Develope|
|00000170| 72 20 54 65 63 68 6e 69 | 63 61 6c 20 53 75 70 70 |r Techni|cal Supp|
|00000180| 6f 72 74 09 09 09 09 09 | 09 0d 23 20 20 20 20 20 |ort.....|..#     |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 0d 23 |        |      .#|
|000001d0| 09 46 4b 45 59 36 20 3a | 20 53 61 76 65 73 20 74 |.FKEY6 :| Saves t|
|000001e0| 68 65 20 63 6f 6e 74 65 | 6e 74 73 20 6f 66 20 74 |he conte|nts of t|
|000001f0| 68 65 20 6d 61 69 6e 20 | 4d 61 63 69 6e 74 6f 73 |he main |Macintos|
|00000200| 68 20 73 63 72 65 65 6e | 20 74 6f 20 61 20 50 49 |h screen| to a PI|
|00000210| 43 54 20 66 69 6c 65 2e | 09 0d 23 0d 23 09 53 63 |CT file.|..#.#.Sc|
|00000220| 72 65 65 6e 46 4b 45 59 | 2e 70 20 20 20 20 20 20 |reenFKEY|.p      |
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000260| 20 20 20 20 20 0d 23 20 | 20 20 20 20 20 20 20 20 |     .# |        |
|00000270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 0d 23 09 43 6f 70 |        |  .#.Cop|
|000002b0| 79 72 69 67 68 74 20 a9 | 20 31 39 38 39 20 41 70 |yright .| 1989 Ap|
|000002c0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000002d0| 63 2e 09 09 09 09 09 09 | 09 0d 23 09 41 6c 6c 20 |c.......|..#.All |
|000002e0| 72 69 67 68 74 73 20 72 | 65 73 65 72 76 65 64 2e |rights r|eserved.|
|000002f0| 09 09 09 09 09 09 09 09 | 09 09 09 0d 23 09 09 09 |........|....#...|
|00000300| 09 09 09 09 09 09 09 09 | 09 09 09 09 09 09 0d 23 |........|.......#|
|00000310| 09 56 65 72 73 69 6f 6e | 73 3a 09 09 09 09 09 09 |.Version|s:......|
|00000320| 09 09 09 09 09 09 09 09 | 09 0d 23 09 09 09 31 2e |........|..#...1.|
|00000330| 30 30 20 09 09 09 09 09 | 31 30 2f 38 39 09 09 09 |00 .....|10/89...|
|00000340| 09 09 09 09 0d 23 20 20 | 20 20 20 20 20 20 20 20 |.....#  |        |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000380| 20 20 20 20 20 20 20 20 | 20 0d 23 09 43 6f 6d 70 |        | .#.Comp|
|00000390| 6f 6e 65 6e 74 73 3a 09 | 09 09 09 09 09 09 09 09 |onents:.|........|
|000003a0| 09 09 09 09 09 0d 23 20 | 20 20 20 20 20 20 20 20 |......# |        |
|000003b0| 20 20 20 53 63 72 65 65 | 6e 46 4b 45 59 2e 70 20 |   Scree|nFKEY.p |
|000003c0| 20 20 20 20 20 20 20 09 | 4f 63 74 6f 62 65 72 20 |       .|October |
|000003d0| 31 2c 20 31 39 38 39 09 | 20 09 09 09 09 0d 23 20 |1, 1989.| .....# |
|000003e0| 20 20 20 20 20 20 20 20 | 20 20 20 53 63 72 65 65 |        |   Scree|
|000003f0| 6e 46 4b 45 59 2e 61 20 | 20 20 20 20 20 20 20 20 |nFKEY.a |        |
|00000400| 20 09 4f 63 74 6f 62 65 | 72 20 31 2c 20 31 39 38 | .Octobe|r 1, 198|
|00000410| 39 09 20 09 09 09 09 0d | 23 20 20 20 20 20 20 20 |9. .....|#       |
|00000420| 20 20 20 20 20 53 63 72 | 65 65 6e 46 4b 45 59 2e |     Scr|eenFKEY.|
|00000430| 6d 61 6b 65 20 20 20 20 | 20 20 09 4f 63 74 6f 62 |make    |  .Octob|
|00000440| 65 72 20 31 2c 20 31 39 | 38 39 09 09 09 09 09 0d |er 1, 19|89......|
|00000450| 23 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |#       |        |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000490| 20 20 20 20 0d 23 09 53 | 63 72 65 65 6e 46 4b 45 |    .#.S|creenFKE|
|000004a0| 59 20 69 73 20 61 20 62 | 61 73 69 63 20 65 78 61 |Y is a b|asic exa|
|000004b0| 6d 70 6c 65 20 6f 6e 20 | 68 6f 77 20 74 6f 20 73 |mple on |how to s|
|000004c0| 70 6f 6f 6c 20 61 20 50 | 49 43 54 20 66 69 6c 65 |pool a P|ICT file|
|000004d0| 20 74 6f 20 64 69 73 6b | 20 62 79 20 72 65 70 6c | to disk| by repl|
|000004e0| 61 63 69 6e 67 20 74 68 | 65 20 0d 23 09 62 6f 74 |acing th|e .#.bot|
|000004f0| 74 6c 65 6e 65 63 6b 20 | 50 75 74 50 49 43 50 72 |tleneck |PutPICPr|
|00000500| 6f 63 2c 20 69 74 20 73 | 61 76 65 73 20 74 68 65 |oc, it s|aves the|
|00000510| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 74 68 65 | content|s of the|
|00000520| 20 73 63 72 65 65 6e 20 | 74 6f 20 61 20 66 69 6c | screen |to a fil|
|00000530| 65 2e 20 54 68 65 20 46 | 4b 45 59 20 63 72 65 61 |e. The F|KEY crea|
|00000540| 74 65 73 20 0d 23 09 74 | 65 6e 20 66 69 6c 65 73 |tes .#.t|en files|
|00000550| 20 53 63 72 65 65 6e 20 | 30 20 74 68 72 6f 75 67 | Screen |0 throug|
|00000560| 68 20 53 63 72 65 65 6e | 20 39 3b 20 69 74 20 69 |h Screen| 9; it i|
|00000570| 73 20 6e 65 63 65 73 73 | 61 72 79 20 74 6f 20 65 |s necess|ary to e|
|00000580| 72 61 73 65 20 6f 72 20 | 72 65 6e 61 6d 65 20 6f |rase or |rename o|
|00000590| 6c 64 20 66 69 6c 65 73 | 20 77 68 65 6e 20 0d 23 |ld files| when .#|
|000005a0| 09 74 68 65 20 6c 69 6d | 69 74 20 69 73 20 72 65 |.the lim|it is re|
|000005b0| 61 63 68 65 64 2e 20 0d | 23 09 0d 23 09 54 68 69 |ached. .|#..#.Thi|
|000005c0| 73 20 46 4b 45 59 20 77 | 6f 72 6b 73 20 69 6e 20 |s FKEY w|orks in |
|000005d0| 61 6e 79 20 4d 61 63 69 | 6e 74 6f 73 68 20 63 6f |any Maci|ntosh co|
|000005e0| 6d 70 75 74 65 72 20 61 | 6e 64 20 73 61 76 65 73 |mputer a|nd saves|
|000005f0| 20 74 68 65 20 73 63 72 | 65 65 6e 20 72 65 67 61 | the scr|een rega|
|00000600| 72 64 6c 65 73 73 20 6f | 66 20 74 68 65 20 0d 23 |rdless o|f the .#|
|00000610| 09 73 65 74 74 69 6e 67 | 20 6f 66 20 74 68 65 20 |.setting| of the |
|00000620| 73 63 72 65 65 6e 3b 20 | 74 6f 20 75 73 65 2c 20 |screen; |to use, |
|00000630| 69 74 20 68 61 73 20 74 | 6f 20 62 65 20 61 64 64 |it has t|o be add|
|00000640| 65 64 20 74 6f 20 74 68 | 65 20 53 79 73 74 65 6d |ed to th|e System|
|00000650| 20 66 69 6c 65 20 75 73 | 69 6e 67 20 52 65 73 45 | file us|ing ResE|
|00000660| 64 69 74 2e 0d 23 0d 23 | 23 23 23 23 23 23 23 23 |dit..#.#|########|
|00000670| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000680| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000690| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000006c0| 23 23 23 2a 7d 0d 0d 0d | 0d 7b 20 54 68 65 20 62 |###*}...|.{ The b|
|000006d0| 61 73 69 63 20 73 74 72 | 61 74 65 67 79 20 69 73 |asic str|ategy is|
|000006e0| 20 61 73 20 66 6f 6c 6c | 6f 77 73 3a 0d 20 20 31 | as foll|ows:.  1|
|000006f0| 2e 2d 20 4d 61 6b 65 20 | 73 75 72 65 20 77 65 20 |.- Make |sure we |
|00000700| 63 61 6e 20 63 72 65 61 | 74 65 20 74 68 65 20 66 |can crea|te the f|
|00000710| 69 6c 65 2e 0d 20 20 32 | 2e 2d 20 49 66 20 43 6f |ile..  2|.- If Co|
|00000720| 6c 6f 72 20 51 75 69 63 | 6b 44 72 61 77 20 69 73 |lor Quic|kDraw is|
|00000730| 20 61 76 61 69 6c 61 62 | 6c 65 20 74 68 65 6e 20 | availab|le then |
|00000740| 75 73 65 20 61 20 63 6f | 6c 6f 72 20 70 6f 72 74 |use a co|lor port|
|00000750| 0d 20 20 20 20 20 20 65 | 6c 73 65 20 75 73 65 20 |.      e|lse use |
|00000760| 61 20 72 65 67 75 6c 61 | 72 20 42 2f 57 20 70 6f |a regula|r B/W po|
|00000770| 72 74 0d 20 20 33 2e 2d | 20 52 65 70 6c 61 63 65 |rt.  3.-| Replace|
|00000780| 20 74 68 65 20 62 6f 74 | 74 6c 65 6e 65 63 6b 20 | the bot|tleneck |
|00000790| 70 72 6f 63 65 64 75 72 | 65 20 66 6f 72 20 6f 75 |procedur|e for ou|
|000007a0| 72 20 6f 77 6e 20 70 75 | 74 50 69 63 74 20 70 72 |r own pu|tPict pr|
|000007b0| 6f 63 65 64 75 72 65 0d | 20 20 34 2e 2d 20 4f 70 |ocedure.|  4.- Op|
|000007c0| 65 6e 20 61 20 70 69 63 | 74 75 72 65 2c 20 33 20 |en a pic|ture, 3 |
|000007d0| 61 62 6f 76 65 20 67 75 | 61 72 61 6e 74 65 65 73 |above gu|arantees|
|000007e0| 20 74 68 61 74 20 64 61 | 74 61 20 77 69 6c 6c 20 | that da|ta will |
|000007f0| 67 6f 20 74 6f 20 64 69 | 73 6b 0d 20 20 35 2e 2d |go to di|sk.  5.-|
|00000800| 20 43 6f 70 79 42 69 74 | 73 20 74 68 65 20 77 68 | CopyBit|s the wh|
|00000810| 6f 6c 65 20 73 63 72 65 | 65 6e 20 69 6e 74 6f 20 |ole scre|en into |
|00000820| 69 74 73 65 6c 66 20 63 | 61 75 73 69 6e 67 20 74 |itself c|ausing t|
|00000830| 68 65 20 73 74 75 66 66 | 20 74 6f 20 67 6f 0d 20 |he stuff| to go. |
|00000840| 20 20 20 20 20 74 6f 20 | 74 68 65 20 70 69 63 74 |     to |the pict|
|00000850| 75 72 65 2e 0d 20 20 36 | 2e 2d 20 43 6c 6f 73 65 |ure..  6|.- Close|
|00000860| 20 74 68 65 20 70 69 63 | 74 75 72 65 0d 20 20 37 | the pic|ture.  7|
|00000870| 2e 2d 20 46 69 6e 69 73 | 68 20 74 68 65 20 50 49 |.- Finis|h the PI|
|00000880| 43 54 20 66 69 6c 65 2e | 0d 20 20 38 2e 2d 20 4c |CT file.|.  8.- L|
|00000890| 65 61 76 65 20 74 68 69 | 6e 67 73 20 28 51 44 50 |eave thi|ngs (QDP|
|000008a0| 72 6f 63 73 2c 20 70 6f | 72 74 29 20 74 68 65 20 |rocs, po|rt) the |
|000008b0| 77 61 79 20 74 68 65 79 | 20 77 65 72 65 2e 20 20 |way they| were.  |
|000008c0| 20 20 20 20 20 7d 0d 0d | 7b 20 41 6e 6f 74 68 65 |     }..|{ Anothe|
|000008d0| 72 20 70 6f 69 6e 74 20 | 6f 66 20 69 6e 74 65 72 |r point |of inter|
|000008e0| 65 73 74 20 69 73 20 74 | 68 65 20 74 65 63 68 6e |est is t|he techn|
|000008f0| 69 71 75 65 20 75 73 65 | 64 20 74 6f 20 70 72 6f |ique use|d to pro|
|00000900| 76 69 64 65 20 70 73 65 | 75 64 6f 0d 20 20 67 6c |vide pse|udo.  gl|
|00000910| 6f 62 61 6c 73 20 6e 65 | 65 64 65 64 20 66 6f 72 |obals ne|eded for|
|00000920| 20 74 68 65 20 70 72 6f | 63 65 73 73 20 74 6f 20 | the pro|cess to |
|00000930| 77 6f 72 6b 20 62 79 20 | 74 61 67 67 69 6e 67 20 |work by |tagging |
|00000940| 74 68 65 20 66 69 65 6c | 64 73 20 74 6f 20 74 68 |the fiel|ds to th|
|00000950| 65 0d 20 20 65 6e 64 20 | 6f 66 20 74 68 65 20 67 |e.  end |of the g|
|00000960| 72 61 66 70 6f 72 74 20 | 72 65 63 6f 72 64 2e 20 |rafport |record. |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 0d 55 4e 49 |        |  }..UNI|
|00000980| 54 20 46 4b 45 59 3b 0d | 0d 49 4e 54 45 52 46 41 |T FKEY;.|.INTERFA|
|00000990| 43 45 0d 0d 09 55 53 45 | 53 20 4d 65 6d 74 79 70 |CE...USE|S Memtyp|
|000009a0| 65 73 2c 20 51 75 69 63 | 6b 64 72 61 77 2c 20 4f |es, Quic|kdraw, O|
|000009b0| 53 49 6e 74 66 2c 20 54 | 6f 6f 6c 49 6e 74 66 2c |SIntf, T|oolIntf,|
|000009c0| 20 50 61 63 6b 49 6e 74 | 66 3b 0d 0d 54 59 50 45 | PackInt|f;..TYPE|
|000009d0| 0d 09 20 42 69 74 4d 61 | 70 50 74 72 20 3d 20 5e |.. BitMa|pPtr = ^|
|000009e0| 42 69 74 4d 61 70 3b 20 | 7b 20 54 79 70 65 20 63 |BitMap; |{ Type c|
|000009f0| 61 73 74 69 6e 67 20 73 | 74 75 66 66 20 7d 0d 0d |asting s|tuff }..|
|00000a00| 7b 20 73 74 72 75 63 74 | 75 72 65 20 75 73 65 64 |{ struct|ure used|
|00000a10| 20 74 6f 20 6d 61 6e 74 | 61 69 6e 20 73 6f 6d 65 | to mant|ain some|
|00000a20| 20 67 6c 6f 62 61 6c 73 | 20 74 68 61 74 20 63 61 | globals| that ca|
|00000a30| 6e 20 6e 6f 74 20 62 65 | 20 61 63 63 65 73 73 65 |n not be| accesse|
|00000a40| 64 0d 20 20 69 6e 20 74 | 68 65 20 73 74 61 6e 64 |d.  in t|he stand|
|00000a50| 61 72 64 20 77 61 79 20 | 77 68 65 6e 20 51 44 20 |ard way |when QD |
|00000a60| 63 61 6c 6c 73 20 74 68 | 65 20 62 6f 74 74 6c 65 |calls th|e bottle|
|00000a70| 6e 65 63 6b 20 70 72 6f | 63 65 64 75 72 65 20 20 |neck pro|cedure  |
|00000a80| 20 7d 0d 0d 09 47 44 61 | 74 61 52 65 63 20 3d 20 | }...GDa|taRec = |
|00000a90| 52 45 43 4f 52 44 0d 09 | 09 70 48 61 6e 64 3a 20 |RECORD..|.pHand: |
|00000aa0| 50 69 63 48 61 6e 64 6c | 65 3b 20 7b 20 70 69 63 |PicHandl|e; { pic|
|00000ab0| 74 75 72 65 20 62 65 69 | 6e 67 20 63 72 65 61 74 |ture bei|ng creat|
|00000ac0| 65 64 20 7d 0d 09 09 67 | 52 65 66 3a 20 49 4e 54 |ed }...g|Ref: INT|
|00000ad0| 45 47 45 52 3b 20 7b 20 | 66 69 6c 65 20 72 65 66 |EGER; { |file ref|
|00000ae0| 65 72 65 6e 63 65 20 6e | 75 6d 62 65 72 20 7d 0d |erence n|umber }.|
|00000af0| 09 09 66 69 6c 65 4f 4b | 3a 20 42 4f 4f 4c 45 41 |..fileOK|: BOOLEA|
|00000b00| 4e 3b 20 7b 20 70 72 6f | 62 6c 65 6d 73 20 66 6c |N; { pro|blems fl|
|00000b10| 61 67 20 7d 0d 09 45 4e | 44 3b 0d 09 0d 09 7b 20 |ag }..EN|D;....{ |
|00000b20| 6e 6f 77 20 6c 65 74 73 | 20 70 75 74 20 74 6f 67 |now lets| put tog|
|00000b30| 65 74 68 65 72 20 61 20 | 70 6f 72 74 20 2b 20 6f |ether a |port + o|
|00000b40| 75 72 20 64 61 74 61 20 | 73 74 72 75 63 74 75 72 |ur data |structur|
|00000b50| 65 20 20 20 20 20 20 7d | 0d 09 47 70 6f 72 74 50 |e      }|..GportP|
|00000b60| 6c 75 73 20 3d 20 52 45 | 43 4f 52 44 0d 09 09 54 |lus = RE|CORD...T|
|00000b70| 52 55 45 50 6f 72 74 3a | 20 43 47 72 61 66 50 6f |RUEPort:| CGrafPo|
|00000b80| 72 74 3b 0d 09 09 47 44 | 53 74 75 66 66 3a 20 47 |rt;...GD|Stuff: G|
|00000b90| 44 61 74 61 52 65 63 3b | 0d 09 45 4e 44 3b 0d 09 |DataRec;|..END;..|
|00000ba0| 0d 09 47 50 50 74 72 20 | 3d 20 5e 47 70 6f 72 74 |..GPPtr |= ^Gport|
|00000bb0| 50 6c 75 73 3b 0d 0d 7b | 20 6d 61 69 6e 20 70 72 |Plus;..{| main pr|
|00000bc0| 6f 63 65 64 75 72 65 20 | 66 6f 72 20 74 68 65 20 |ocedure |for the |
|00000bd0| 46 4b 45 59 20 7d 0d 50 | 52 4f 43 45 44 55 52 45 |FKEY }.P|ROCEDURE|
|00000be0| 20 50 49 43 54 4f 75 74 | 3b 0d 0d 7b 20 50 75 74 | PICTOut|;..{ Put|
|00000bf0| 50 49 43 54 44 61 74 61 | 20 72 65 70 6c 61 63 65 |PICTData| replace|
|00000c00| 73 20 74 68 65 20 73 74 | 61 6e 64 61 72 64 20 62 |s the st|andard b|
|00000c10| 6f 74 74 6c 65 6e 65 63 | 6b 20 70 72 6f 63 20 7d |ottlenec|k proc }|
|00000c20| 0d 50 52 4f 43 45 44 55 | 52 45 20 50 75 74 50 49 |.PROCEDU|RE PutPI|
|00000c30| 43 54 44 61 74 61 28 64 | 61 74 61 50 74 72 3a 20 |CTData(d|ataPtr: |
|00000c40| 50 74 72 3b 20 20 62 79 | 74 65 43 6f 75 6e 74 3a |Ptr;  by|teCount:|
|00000c50| 20 49 4e 54 45 47 45 52 | 29 3b 0d 0d 0d 0d 49 4d | INTEGER|);....IM|
|00000c60| 50 4c 45 4d 45 4e 54 41 | 54 49 4f 4e 0d 0d 50 52 |PLEMENTA|TION..PR|
|00000c70| 4f 43 45 44 55 52 45 20 | 50 75 74 50 49 43 54 44 |OCEDURE |PutPICTD|
|00000c80| 61 74 61 7b 28 64 61 74 | 61 50 74 72 3a 20 50 74 |ata{(dat|aPtr: Pt|
|00000c90| 72 3b 20 62 79 74 65 43 | 6f 75 6e 74 3a 20 49 4e |r; byteC|ount: IN|
|00000ca0| 54 45 47 45 52 29 7d 3b | 0d 0d 56 41 52 0d 09 6c |TEGER)};|..VAR..l|
|00000cb0| 6f 6e 67 43 6f 75 6e 74 | 3a 20 4c 4f 4e 47 49 4e |ongCount|: LONGIN|
|00000cc0| 54 3b 20 7b 20 62 79 74 | 65 20 63 6f 75 6e 74 20 |T; { byt|e count |
|00000cd0| 7d 0d 09 6d 79 50 6f 72 | 74 50 6c 75 73 3a 20 47 |}..myPor|tPlus: G|
|00000ce0| 50 50 74 72 3b 20 7b 20 | 67 6c 6f 62 61 6c 20 64 |PPtr; { |global d|
|00000cf0| 61 74 61 20 70 6f 69 6e | 74 65 72 20 7d 0d 0d 42 |ata poin|ter }..B|
|00000d00| 45 47 49 4e 0d 0d 09 47 | 65 74 50 6f 72 74 28 67 |EGIN...G|etPort(g|
|00000d10| 72 61 66 50 74 72 28 6d | 79 50 6f 72 74 50 6c 75 |rafPtr(m|yPortPlu|
|00000d20| 73 29 29 3b 20 7b 20 74 | 6f 20 61 63 63 65 73 73 |s)); { t|o access|
|00000d30| 20 74 68 65 20 67 6c 6f | 62 61 6c 20 64 61 74 61 | the glo|bal data|
|00000d40| 20 7d 0d 09 0d 09 6c 6f | 6e 67 43 6f 75 6e 74 20 | }....lo|ngCount |
|00000d50| 3a 3d 20 62 79 74 65 43 | 6f 75 6e 74 3b 0d 09 0d |:= byteC|ount;...|
|00000d60| 09 49 46 20 6d 79 50 6f | 72 74 50 6c 75 73 5e 2e |.IF myPo|rtPlus^.|
|00000d70| 47 44 53 74 75 66 66 2e | 66 69 6c 65 4f 4b 20 54 |GDStuff.|fileOK T|
|00000d80| 48 45 4e 20 42 45 47 49 | 4e 20 7b 20 64 6f 20 74 |HEN BEGI|N { do t|
|00000d90| 68 69 73 20 6f 6e 6c 79 | 20 69 66 20 66 69 6c 65 |his only| if file|
|00000da0| 20 69 73 20 73 74 69 6c | 6c 20 4f 4b 20 7d 0d 09 | is stil|l OK }..|
|00000db0| 09 0d 09 09 49 46 20 46 | 53 57 72 69 74 65 28 6d |....IF F|SWrite(m|
|00000dc0| 79 50 6f 72 74 50 6c 75 | 73 5e 2e 47 44 53 74 75 |yPortPlu|s^.GDStu|
|00000dd0| 66 66 2e 67 52 65 66 2c | 20 6c 6f 6e 67 43 6f 75 |ff.gRef,| longCou|
|00000de0| 6e 74 2c 20 64 61 74 61 | 50 74 72 29 20 3c 3e 20 |nt, data|Ptr) <> |
|00000df0| 6e 6f 45 72 72 20 54 48 | 45 4e 0d 09 09 09 7b 20 |noErr TH|EN....{ |
|00000e00| 73 6f 6d 65 74 68 69 6e | 67 20 62 61 64 20 6f 63 |somethin|g bad oc|
|00000e10| 63 75 72 72 65 64 2c 20 | 6d 75 73 74 20 64 65 6c |curred, |must del|
|00000e20| 65 74 65 20 66 69 6c 65 | 20 7d 0d 09 09 09 6d 79 |ete file| }....my|
|00000e30| 50 6f 72 74 50 6c 75 73 | 5e 2e 47 44 53 74 75 66 |PortPlus|^.GDStuf|
|00000e40| 66 2e 66 69 6c 65 4f 4b | 20 3a 3d 20 46 41 4c 53 |f.fileOK| := FALS|
|00000e50| 45 3b 0d 09 09 0d 09 09 | 49 46 20 6d 79 50 6f 72 |E;......|IF myPor|
|00000e60| 74 50 6c 75 73 5e 2e 47 | 44 53 74 75 66 66 2e 70 |tPlus^.G|DStuff.p|
|00000e70| 48 61 6e 64 20 3c 3e 20 | 4e 49 4c 20 54 48 45 4e |Hand <> |NIL THEN|
|00000e80| 20 7b 20 69 66 20 74 68 | 65 20 70 69 63 74 75 72 | { if th|e pictur|
|00000e90| 65 20 69 73 20 61 6c 72 | 65 61 64 79 20 6f 70 65 |e is alr|eady ope|
|00000ea0| 6e 20 7d 0d 09 09 09 7b | 20 6b 65 65 70 20 73 69 |n }....{| keep si|
|00000eb0| 7a 65 20 75 70 20 74 6f | 20 64 61 74 65 20 73 6f |ze up to| date so|
|00000ec0| 20 51 44 20 7d 0d 09 09 | 09 7b 20 63 61 6e 20 61 | QD }...|.{ can a|
|00000ed0| 64 6a 75 73 74 20 66 6f | 72 20 6f 64 64 6e 65 73 |djust fo|r oddnes|
|00000ee0| 73 20 20 20 20 20 20 20 | 20 7d 0d 09 09 09 6d 79 |s       | }....my|
|00000ef0| 50 6f 72 74 50 6c 75 73 | 5e 2e 47 44 53 74 75 66 |PortPlus|^.GDStuf|
|00000f00| 66 2e 70 48 61 6e 64 5e | 5e 2e 70 69 63 53 69 7a |f.pHand^|^.picSiz|
|00000f10| 65 20 3a 3d 20 6d 79 50 | 6f 72 74 50 6c 75 73 5e |e := myP|ortPlus^|
|00000f20| 2e 47 44 53 74 75 66 66 | 2e 70 48 61 6e 64 5e 5e |.GDStuff|.pHand^^|
|00000f30| 2e 70 69 63 53 69 7a 65 | 20 2b 20 6c 6f 6e 67 43 |.picSize| + longC|
|00000f40| 6f 75 6e 74 3b 0d 09 45 | 4e 44 0d 0d 45 4e 44 3b |ount;..E|ND..END;|
|00000f50| 0d 0d 7b 20 54 68 65 20 | 6d 61 69 6e 20 70 72 6f |..{ The |main pro|
|00000f60| 63 65 64 75 72 65 20 6f | 66 20 74 68 65 20 46 4b |cedure o|f the FK|
|00000f70| 45 59 2e 0d 20 20 54 68 | 69 73 20 63 6f 64 65 20 |EY..  Th|is code |
|00000f80| 69 6e 73 74 61 6c 6c 73 | 20 74 68 65 20 62 6f 74 |installs| the bot|
|00000f90| 74 6c 65 20 6e 65 63 6b | 20 70 72 6f 63 65 64 75 |tle neck| procedu|
|00000fa0| 72 65 2c 20 6f 70 65 6e | 73 20 74 68 65 20 70 69 |re, open|s the pi|
|00000fb0| 63 74 75 72 65 20 61 6e | 64 20 64 6f 65 73 20 61 |cture an|d does a|
|00000fc0| 6c 6c 0d 20 20 74 68 65 | 20 68 6f 75 73 65 20 6b |ll.  the| house k|
|00000fd0| 65 65 70 69 6e 67 2e 0d | 7d 0d 0d 50 52 4f 43 45 |eeping..|}..PROCE|
|00000fe0| 44 55 52 45 20 50 49 43 | 54 4f 75 74 3b 0d 0d 56 |DURE PIC|TOut;..V|
|00000ff0| 41 52 0d 09 65 72 72 3a | 20 4f 53 45 72 72 3b 0d |AR..err:| OSErr;.|
|00001000| 09 69 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 6c 6f |.i: INTE|GER;..lo|
|00001010| 6e 67 43 6f 75 6e 74 2c | 20 6c 6f 6e 67 5a 65 72 |ngCount,| longZer|
|00001020| 6f 3a 20 4c 4f 4e 47 49 | 4e 54 3b 0d 09 6d 79 50 |o: LONGI|NT;..myP|
|00001030| 72 6f 63 73 3a 20 43 51 | 44 50 72 6f 63 73 3b 0d |rocs: CQ|DProcs;.|
|00001040| 09 6d 79 4f 6c 64 50 72 | 6f 63 73 3a 20 51 44 50 |.myOldPr|ocs: QDP|
|00001050| 72 6f 63 73 3b 0d 09 0d | 09 73 61 76 65 50 69 63 |rocs;...|.savePic|
|00001060| 74 53 69 7a 65 46 72 61 | 6d 65 3a 20 50 69 63 74 |tSizeFra|me: Pict|
|00001070| 75 72 65 3b 0d 09 0d 09 | 6e 61 6d 65 53 74 72 3a |ure;....|nameStr:|
|00001080| 20 53 74 72 32 35 35 3b | 0d 09 76 72 65 66 6e 75 | Str255;|..vrefnu|
|00001090| 6d 3a 20 49 4e 54 45 47 | 45 52 3b 0d 09 62 79 74 |m: INTEG|ER;..byt|
|000010a0| 65 73 41 76 61 69 6c 3a | 20 4c 4f 4e 47 49 4e 54 |esAvail:| LONGINT|
|000010b0| 3b 0d 09 0d 09 6f 6c 64 | 50 6f 72 74 3a 20 67 72 |;....old|Port: gr|
|000010c0| 61 66 50 74 72 3b 0d 09 | 77 50 6f 72 74 50 6c 75 |afPtr;..|wPortPlu|
|000010d0| 73 3a 20 47 70 6f 72 74 | 50 6c 75 73 3b 0d 09 77 |s: Gport|Plus;..w|
|000010e0| 50 6f 72 74 50 6c 75 73 | 50 74 72 3a 20 47 50 50 |PortPlus|Ptr: GPP|
|000010f0| 74 72 3b 0d 09 6d 79 44 | 65 76 2c 20 61 44 65 76 |tr;..myD|ev, aDev|
|00001100| 3a 20 47 44 48 61 6e 64 | 6c 65 3b 0d 09 70 69 63 |: GDHand|le;..pic|
|00001110| 74 48 61 6e 64 3a 20 50 | 69 63 48 61 6e 64 6c 65 |tHand: P|icHandle|
|00001120| 3b 0d 09 67 6c 6f 62 61 | 6c 52 65 66 3a 20 49 4e |;..globa|lRef: IN|
|00001130| 54 45 47 45 52 3b 0d 09 | 0d 09 74 68 65 57 6f 72 |TEGER;..|..theWor|
|00001140| 6c 64 3a 20 53 79 73 45 | 6e 76 52 65 63 3b 0d 09 |ld: SysE|nvRec;..|
|00001150| 0d 09 62 69 74 50 74 72 | 3a 20 42 69 74 4d 61 70 |..bitPtr|: BitMap|
|00001160| 50 74 72 3b 0d 0d 09 7b | 20 57 65 20 75 73 65 20 |Ptr;...{| We use |
|00001170| 74 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 74 |this pro|cedure t|
|00001180| 6f 20 6b 69 6c 6c 20 74 | 68 65 20 66 69 6c 65 20 |o kill t|he file |
|00001190| 69 66 20 73 6f 6d 65 74 | 68 69 6e 67 20 66 61 69 |if somet|hing fai|
|000011a0| 6c 73 2e 0d 09 57 65 20 | 64 6f 6e 27 74 20 77 61 |ls...We |don't wa|
|000011b0| 6e 74 20 74 6f 20 6c 65 | 61 76 65 20 66 69 6c 65 |nt to le|ave file|
|000011c0| 73 20 6c 61 79 69 6e 67 | 20 61 72 6f 75 6e 64 2c |s laying| around,|
|000011d0| 20 64 6f 20 77 65 3f 20 | 7d 0d 09 50 52 4f 43 45 | do we? |}..PROCE|
|000011e0| 44 55 52 45 20 44 65 61 | 74 68 4b 69 73 73 3b 0d |DURE Dea|thKiss;.|
|000011f0| 09 42 45 47 49 4e 0d 09 | 09 49 46 20 67 6c 6f 62 |.BEGIN..|.IF glob|
|00001200| 61 6c 52 65 66 20 3c 3e | 20 30 20 54 48 45 4e 20 |alRef <>| 0 THEN |
|00001210| 0d 09 09 09 65 72 72 20 | 3a 3d 20 46 53 43 6c 6f |....err |:= FSClo|
|00001220| 73 65 28 67 6c 6f 62 61 | 6c 52 65 66 29 3b 0d 09 |se(globa|lRef);..|
|00001230| 09 0d 09 09 7b 20 63 6c | 6f 73 65 20 74 68 65 20 |....{ cl|ose the |
|00001240| 66 69 6c 65 20 69 66 20 | 69 74 20 69 73 20 6f 70 |file if |it is op|
|00001250| 65 6e 20 7d 0d 09 09 65 | 72 72 20 3a 3d 20 46 53 |en }...e|rr := FS|
|00001260| 44 65 6c 65 74 65 28 6e | 61 6d 65 53 74 72 2c 20 |Delete(n|ameStr, |
|00001270| 76 72 65 66 6e 75 6d 29 | 3b 20 7b 20 74 6f 20 6d |vrefnum)|; { to m|
|00001280| 61 6b 65 20 73 75 72 65 | 20 44 65 6c 65 74 65 20 |ake sure| Delete |
|00001290| 77 6f 72 6b 73 20 7d 0d | 09 09 53 79 73 42 65 65 |works }.|..SysBee|
|000012a0| 70 28 31 29 3b 20 7b 20 | 4c 65 74 20 74 68 65 20 |p(1); { |Let the |
|000012b0| 77 6f 72 6c 64 20 6b 6e | 6f 77 20 7d 0d 09 09 45 |world kn|ow }...E|
|000012c0| 78 69 74 28 50 49 43 54 | 4f 75 74 29 3b 20 7b 20 |xit(PICT|Out); { |
|000012d0| 61 6e 64 20 67 65 74 20 | 6f 75 74 20 6f 66 20 68 |and get |out of h|
|000012e0| 65 72 65 21 20 7d 0d 09 | 45 4e 44 3b 20 7b 44 65 |ere! }..|END; {De|
|000012f0| 61 74 68 4b 69 73 73 7d | 20 0d 0d 42 45 47 49 4e |athKiss}| ..BEGIN|
|00001300| 20 7b 50 49 43 54 4f 75 | 74 7d 0d 0d 09 65 72 72 | {PICTOu|t}...err|
|00001310| 20 3a 3d 20 53 79 73 45 | 6e 76 69 72 6f 6e 73 28 | := SysE|nvirons(|
|00001320| 31 2c 20 74 68 65 57 6f | 72 6c 64 29 3b 20 7b 20 |1, theWo|rld); { |
|00001330| 4c 65 74 73 20 63 68 65 | 63 6b 20 69 66 20 77 65 |Lets che|ck if we|
|00001340| 20 68 61 76 65 20 77 68 | 61 74 20 77 65 20 6e 65 | have wh|at we ne|
|00001350| 65 64 20 7d 0d 09 0d 09 | 7b 20 69 6e 69 74 69 61 |ed }....|{ initia|
|00001360| 6c 69 7a 69 6e 67 20 74 | 68 65 20 70 6f 69 6e 74 |lizing t|he point|
|00001370| 65 72 20 74 6f 20 70 6f | 72 74 20 2b 20 67 6c 6f |er to po|rt + glo|
|00001380| 62 61 6c 20 73 74 75 66 | 66 7d 0d 09 77 50 6f 72 |bal stuf|f}..wPor|
|00001390| 74 50 6c 75 73 50 74 72 | 20 3a 3d 20 40 77 50 6f |tPlusPtr| := @wPo|
|000013a0| 72 74 50 6c 75 73 3b 0d | 09 0d 09 7b 20 49 6e 69 |rtPlus;.|...{ Ini|
|000013b0| 74 20 74 68 69 73 20 76 | 61 72 69 61 62 6c 65 20 |t this v|ariable |
|000013c0| 74 6f 20 68 65 6c 70 20 | 65 78 69 74 20 70 72 6f |to help |exit pro|
|000013d0| 63 65 64 75 72 65 20 63 | 6c 65 61 6e 20 6f 75 72 |cedure c|lean our|
|000013e0| 20 73 74 75 66 66 20 77 | 68 65 6e 20 77 65 20 68 | stuff w|hen we h|
|000013f0| 61 76 65 20 74 6f 20 72 | 75 6e 20 61 77 61 79 2e |ave to r|un away.|
|00001400| 20 7d 0d 09 67 6c 6f 62 | 61 6c 52 65 66 20 3a 3d | }..glob|alRef :=|
|00001410| 20 30 3b 20 7b 20 69 66 | 20 6e 6f 74 20 7a 65 72 | 0; { if| not zer|
|00001420| 6f 20 74 68 65 6e 20 61 | 20 66 69 6c 65 20 69 73 |o then a| file is|
|00001430| 20 6f 70 65 6e 20 7d 0d | 09 0d 09 7b 20 66 69 72 | open }.|...{ fir|
|00001440| 73 74 20 77 65 20 73 65 | 65 20 69 66 20 69 74 20 |st we se|e if it |
|00001450| 69 73 20 70 6f 73 73 69 | 62 6c 65 20 74 6f 20 6f |is possi|ble to o|
|00001460| 70 65 6e 20 66 69 6c 65 | 20 7d 0d 09 0d 09 49 46 |pen file| }....IF|
|00001470| 20 47 65 74 56 49 6e 66 | 6f 28 30 2c 20 40 6e 61 | GetVInf|o(0, @na|
|00001480| 6d 65 53 74 72 2c 20 76 | 72 65 66 6e 75 6d 2c 20 |meStr, v|refnum, |
|00001490| 62 79 74 65 73 41 76 61 | 69 6c 29 20 3c 3e 20 6e |bytesAva|il) <> n|
|000014a0| 6f 45 72 72 20 54 48 45 | 4e 0d 09 09 7b 20 67 65 |oErr THE|N...{ ge|
|000014b0| 74 20 69 6e 66 6f 20 6f | 6e 20 64 65 66 61 75 6c |t info o|n defaul|
|000014c0| 74 20 76 6f 6c 75 6d 65 | 20 7d 0d 09 09 44 65 61 |t volume| }...Dea|
|000014d0| 74 68 4b 69 73 73 3b 20 | 7b 20 65 72 72 6f 72 2c |thKiss; |{ error,|
|000014e0| 20 67 65 74 20 6f 75 74 | 20 6f 66 20 68 65 72 65 | get out| of here|
|000014f0| 21 20 7d 0d 0d 09 7b 20 | 41 74 20 74 68 69 73 20 |! }...{ |At this |
|00001500| 70 6f 69 6e 74 20 77 65 | 20 63 6f 75 6c 64 20 63 |point we| could c|
|00001510| 68 65 63 6b 20 74 6f 20 | 73 65 65 20 69 66 20 74 |heck to |see if t|
|00001520| 68 65 72 65 20 69 73 20 | 72 6f 6f 6d 20 69 6e 20 |here is |room in |
|00001530| 74 68 65 20 76 6f 6c 75 | 6d 65 20 66 6f 72 20 74 |the volu|me for t|
|00001540| 68 65 20 50 49 43 54 20 | 66 69 6c 65 2c 0d 09 49 |he PICT |file,..I|
|00001550| 20 63 68 6f 73 65 20 6e | 6f 74 20 74 6f 20 62 65 | chose n|ot to be|
|00001560| 63 61 75 73 65 20 75 73 | 69 6e 67 20 61 20 76 61 |cause us|ing a va|
|00001570| 6c 75 65 20 66 6f 72 20 | 74 68 65 20 6d 61 78 69 |lue for |the maxi|
|00001580| 6d 75 6e 20 6c 65 6e 67 | 74 68 20 63 6f 75 6c 64 |mun leng|th could|
|00001590| 20 70 72 6f 62 61 62 6c | 79 20 61 62 6f 72 74 20 | probabl|y abort |
|000015a0| 74 68 65 0d 09 70 72 6f | 63 65 73 73 20 77 68 65 |the..pro|cess whe|
|000015b0| 6e 20 74 68 65 72 65 20 | 69 73 20 72 6f 6f 6d 20 |n there |is room |
|000015c0| 66 6f 72 20 74 68 65 20 | 61 63 74 75 61 6c 20 6c |for the |actual l|
|000015d0| 65 6e 67 74 68 2e 20 49 | 20 64 65 63 69 64 65 64 |ength. I| decided|
|000015e0| 20 74 68 61 74 20 69 74 | 20 69 73 20 62 65 74 74 | that it| is bett|
|000015f0| 65 72 20 74 6f 20 66 61 | 69 6c 0d 09 77 68 65 6e |er to fa|il..when|
|00001600| 20 74 72 79 69 6e 67 20 | 74 6f 20 77 72 69 74 65 | trying |to write|
|00001610| 20 74 68 61 6e 20 6b 69 | 6c 6c 20 74 68 65 20 73 | than ki|ll the s|
|00001620| 61 76 69 6e 67 20 77 69 | 74 68 6f 75 74 20 72 65 |aving wi|thout re|
|00001630| 61 73 6f 6e 2e 20 7d 0d | 0d 09 7b 20 57 65 20 74 |ason. }.|..{ We t|
|00001640| 72 79 20 74 6f 20 63 72 | 65 61 74 65 20 61 20 66 |ry to cr|eate a f|
|00001650| 69 6c 65 20 27 53 63 72 | 65 65 6e 20 78 27 20 62 |ile 'Scr|een x' b|
|00001660| 65 67 69 6e 6e 69 6e 67 | 20 77 69 74 68 20 30 20 |eginning| with 0 |
|00001670| 75 70 20 74 6f 20 39 2c | 20 69 66 20 74 65 6e 0d |up to 9,| if ten.|
|00001680| 09 66 69 6c 65 73 20 65 | 78 69 73 74 20 77 65 20 |.files e|xist we |
|00001690| 65 78 69 74 20 61 6e 64 | 20 61 62 6f 72 74 20 74 |exit and| abort t|
|000016a0| 68 65 20 73 61 76 69 6e | 67 20 20 20 20 20 20 20 |he savin|g       |
|000016b0| 20 20 20 20 20 20 20 7d | 0d 09 6e 61 6d 65 53 74 |       }|..nameSt|
|000016c0| 72 20 3a 3d 20 27 53 63 | 72 65 65 6e 20 30 27 3b |r := 'Sc|reen 0';|
|000016d0| 20 7b 20 69 6e 69 74 69 | 61 6c 20 6e 61 6d 65 20 | { initi|al name |
|000016e0| 7d 0d 09 52 45 50 45 41 | 54 20 42 45 47 49 4e 0d |}..REPEA|T BEGIN.|
|000016f0| 09 09 65 72 72 20 3a 3d | 20 43 72 65 61 74 65 28 |..err :=| Create(|
|00001700| 6e 61 6d 65 53 74 72 2c | 20 76 72 65 66 6e 75 6d |nameStr,| vrefnum|
|00001710| 2c 20 27 47 41 4f 2e 27 | 2c 20 27 50 49 43 54 27 |, 'GAO.'|, 'PICT'|
|00001720| 29 3b 0d 09 09 49 46 20 | 65 72 72 20 3c 3e 20 6e |);...IF |err <> n|
|00001730| 6f 45 72 72 20 54 48 45 | 4e 20 42 45 47 49 4e 0d |oErr THE|N BEGIN.|
|00001740| 09 09 09 49 46 20 65 72 | 72 20 3d 20 64 75 70 46 |...IF er|r = dupF|
|00001750| 4e 45 72 72 20 54 48 45 | 4e 20 42 45 47 49 4e 20 |NErr THE|N BEGIN |
|00001760| 7b 20 69 66 20 66 69 6c | 65 20 61 6c 72 65 61 64 |{ if fil|e alread|
|00001770| 79 20 74 68 65 72 65 20 | 62 75 6d 70 20 74 68 65 |y there |bump the|
|00001780| 20 6e 61 6d 65 20 7d 0d | 09 09 09 09 6e 61 6d 65 | name }.|....name|
|00001790| 53 74 72 5b 38 5d 20 3a | 3d 20 43 68 72 28 4f 72 |Str[8] :|= Chr(Or|
|000017a0| 64 28 6e 61 6d 65 53 74 | 72 5b 38 5d 29 20 2b 20 |d(nameSt|r[8]) + |
|000017b0| 31 29 3b 0d 09 09 09 09 | 49 46 20 6e 61 6d 65 53 |1);.....|IF nameS|
|000017c0| 74 72 5b 38 5d 20 3d 20 | 27 3a 27 20 54 48 45 4e |tr[8] = |':' THEN|
|000017d0| 20 7b 20 74 65 6e 20 66 | 69 6c 65 73 20 73 68 6f | { ten f|iles sho|
|000017e0| 75 6c 64 20 62 65 20 65 | 6e 6f 75 67 68 20 7d 0d |uld be e|nough }.|
|000017f0| 09 09 09 09 09 44 65 61 | 74 68 4b 69 73 73 3b 20 |.....Dea|thKiss; |
|00001800| 7b 20 63 61 6e 27 74 20 | 6d 61 6b 65 20 6d 6f 72 |{ can't |make mor|
|00001810| 65 20 66 69 6c 65 73 2c | 20 67 65 74 20 6f 75 74 |e files,| get out|
|00001820| 20 6f 66 20 68 65 72 65 | 21 20 7d 0d 09 09 09 45 | of here|! }....E|
|00001830| 4e 44 0d 09 09 09 45 4c | 53 45 0d 09 09 09 09 44 |ND....EL|SE.....D|
|00001840| 65 61 74 68 4b 69 73 73 | 3b 20 7b 20 65 72 72 6f |eathKiss|; { erro|
|00001850| 72 2c 20 67 65 74 20 6f | 75 74 20 6f 66 20 68 65 |r, get o|ut of he|
|00001860| 72 65 21 20 7d 0d 09 09 | 45 4e 44 0d 09 45 4e 44 |re! }...|END..END|
|00001870| 20 55 4e 54 49 4c 20 28 | 65 72 72 20 3d 20 6e 6f | UNTIL (|err = no|
|00001880| 45 72 72 29 3b 0d 09 0d | 09 49 46 20 46 53 4f 70 |Err);...|.IF FSOp|
|00001890| 65 6e 28 6e 61 6d 65 53 | 74 72 2c 20 76 72 65 66 |en(nameS|tr, vref|
|000018a0| 6e 75 6d 2c 20 67 6c 6f | 62 61 6c 52 65 66 29 20 |num, glo|balRef) |
|000018b0| 3c 3e 20 30 20 54 48 45 | 4e 20 7b 20 69 66 20 65 |<> 0 THE|N { if e|
|000018c0| 72 72 6f 72 20 64 65 6c | 65 74 65 20 7d 0d 09 09 |rror del|ete }...|
|000018d0| 44 65 61 74 68 4b 69 73 | 73 3b 20 7b 20 65 72 72 |DeathKis|s; { err|
|000018e0| 6f 72 2c 20 67 65 74 20 | 6f 75 74 20 6f 66 20 68 |or, get |out of h|
|000018f0| 65 72 65 21 20 7d 0d 0d | 09 7b 20 66 69 6c 65 20 |ere! }..|.{ file |
|00001900| 73 68 6f 75 6c 64 20 62 | 65 20 6f 70 65 6e 20 61 |should b|e open a|
|00001910| 74 20 74 68 69 73 20 70 | 6f 69 6e 74 2c 20 73 6f |t this p|oint, so|
|00001920| 20 77 65 20 74 72 79 20 | 74 6f 20 77 72 69 74 65 | we try |to write|
|00001930| 20 6f 75 74 20 74 68 65 | 20 68 65 61 64 65 72 20 | out the| header |
|00001940| 66 6f 72 20 74 68 65 20 | 70 69 63 74 20 66 69 6c |for the |pict fil|
|00001950| 65 20 7d 0d 09 6c 6f 6e | 67 5a 65 72 6f 20 3a 3d |e }..lon|gZero :=|
|00001960| 20 30 3b 0d 09 6c 6f 6e | 67 43 6f 75 6e 74 20 3a | 0;..lon|gCount :|
|00001970| 3d 20 34 3b 0d 09 46 4f | 52 20 69 20 3a 3d 20 31 |= 4;..FO|R i := 1|
|00001980| 20 54 4f 20 28 35 33 32 | 20 20 44 49 56 20 34 20 | TO (532|  DIV 4 |
|00001990| 29 20 44 4f 20 42 45 47 | 49 4e 20 7b 20 69 6e 69 |) DO BEG|IN { ini|
|000019a0| 74 20 50 49 43 54 20 68 | 65 61 64 65 72 20 61 6e |t PICT h|eader an|
|000019b0| 64 20 74 68 65 6e 20 73 | 6f 6d 65 20 7d 0d 09 09 |d then s|ome }...|
|000019c0| 65 72 72 20 3a 3d 20 46 | 53 57 72 69 74 65 28 67 |err := F|SWrite(g|
|000019d0| 6c 6f 62 61 6c 52 65 66 | 2c 20 6c 6f 6e 67 43 6f |lobalRef|, longCo|
|000019e0| 75 6e 74 2c 20 40 6c 6f | 6e 67 5a 65 72 6f 29 3b |unt, @lo|ngZero);|
|000019f0| 0d 09 09 49 46 20 65 72 | 72 20 3c 3e 20 6e 6f 45 |...IF er|r <> noE|
|00001a00| 72 72 20 54 48 45 4e 0d | 09 09 44 65 61 74 68 4b |rr THEN.|..DeathK|
|00001a10| 69 73 73 20 7b 65 72 72 | 6f 72 20 77 68 69 6c 65 |iss {err|or while|
|00001a20| 20 66 69 6c 65 20 6f 70 | 65 6e 2c 20 67 65 74 20 | file op|en, get |
|00001a30| 6f 75 74 20 61 6e 64 20 | 6b 69 6c 6c 20 66 69 6c |out and |kill fil|
|00001a40| 65 20 7d 0d 09 45 4e 44 | 3b 0d 20 20 20 20 20 20 |e }..END|;.      |
|00001a50| 20 20 0d 09 49 46 20 53 | 65 74 46 50 6f 73 28 67 |  ..IF S|etFPos(g|
|00001a60| 6c 6f 62 61 6c 52 65 66 | 2c 20 66 73 46 72 6f 6d |lobalRef|, fsFrom|
|00001a70| 53 74 61 72 74 2c 20 35 | 32 32 29 20 3c 3e 20 6e |Start, 5|22) <> n|
|00001a80| 6f 45 72 72 20 54 48 45 | 4e 0d 09 09 44 65 61 74 |oErr THE|N...Deat|
|00001a90| 68 4b 69 73 73 3b 20 7b | 65 72 72 6f 72 20 77 68 |hKiss; {|error wh|
|00001aa0| 69 6c 65 20 70 6f 73 69 | 74 69 6f 6e 69 6e 67 20 |ile posi|tioning |
|00001ab0| 66 69 6c 65 2c 20 65 78 | 69 74 20 7d 0d 0d 09 47 |file, ex|it }...G|
|00001ac0| 65 74 50 6f 72 74 28 6f | 6c 64 50 6f 72 74 29 3b |etPort(o|ldPort);|
|00001ad0| 20 7b 20 73 61 76 65 20 | 63 75 72 72 65 6e 74 20 | { save |current |
|00001ae0| 70 6f 72 74 20 7d 0d 09 | 0d 09 7b 20 69 6e 69 74 |port }..|..{ init|
|00001af0| 20 67 6c 6f 62 61 6c 20 | 76 61 72 73 20 7d 0d 09 | global |vars }..|
|00001b00| 77 50 6f 72 74 50 6c 75 | 73 2e 47 44 53 74 75 66 |wPortPlu|s.GDStuf|
|00001b10| 66 2e 67 52 65 66 20 3a | 3d 20 67 6c 6f 62 61 6c |f.gRef :|= global|
|00001b20| 52 65 66 3b 20 7b 20 66 | 6f 72 20 66 69 6c 65 20 |Ref; { f|or file |
|00001b30| 61 63 63 65 73 73 65 73 | 20 7d 0d 09 77 50 6f 72 |accesses| }..wPor|
|00001b40| 74 50 6c 75 73 2e 47 44 | 53 74 75 66 66 2e 70 48 |tPlus.GD|Stuff.pH|
|00001b50| 61 6e 64 20 3a 3d 20 4e | 49 4c 3b 20 7b 20 6e 6f |and := N|IL; { no|
|00001b60| 20 70 69 63 74 75 72 65 | 20 77 68 65 6e 20 62 65 | picture| when be|
|00001b70| 67 69 6e 69 6e 67 20 7d | 0d 09 77 50 6f 72 74 50 |gining }|..wPortP|
|00001b80| 6c 75 73 2e 47 44 53 74 | 75 66 66 2e 66 69 6c 65 |lus.GDSt|uff.file|
|00001b90| 4f 4b 20 3a 3d 20 54 52 | 55 45 3b 20 7b 20 77 65 |OK := TR|UE; { we|
|00001ba0| 20 68 6f 70 65 20 7d 0d | 0d 09 49 46 20 74 68 65 | hope }.|..IF the|
|00001bb0| 57 6f 72 6c 64 2e 68 61 | 73 43 6f 6c 6f 72 51 44 |World.ha|sColorQD|
|00001bc0| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 4f 70 | THEN BE|GIN...Op|
|00001bd0| 65 6e 43 70 6f 72 74 28 | 43 47 72 61 66 50 74 72 |enCport(|CGrafPtr|
|00001be0| 28 77 50 6f 72 74 50 6c | 75 73 50 74 72 29 29 3b |(wPortPl|usPtr));|
|00001bf0| 20 7b 20 4c 65 74 73 20 | 67 65 74 20 61 20 63 6f | { Lets |get a co|
|00001c00| 6c 6f 72 20 70 6f 72 74 | 20 7d 0d 09 09 53 65 74 |lor port| }...Set|
|00001c10| 53 74 64 43 50 72 6f 63 | 73 28 6d 79 50 72 6f 63 |StdCProc|s(myProc|
|00001c20| 73 29 3b 20 7b 20 73 65 | 74 20 69 74 73 20 62 6f |s); { se|t its bo|
|00001c30| 74 74 6c 65 6e 65 63 6b | 20 70 72 6f 63 73 20 7d |ttleneck| procs }|
|00001c40| 0d 09 09 67 72 61 66 50 | 74 72 28 77 50 6f 72 74 |...grafP|tr(wPort|
|00001c50| 50 6c 75 73 50 74 72 29 | 5e 2e 67 72 61 66 50 72 |PlusPtr)|^.grafPr|
|00001c60| 6f 63 73 20 3a 3d 20 40 | 6d 79 50 72 6f 63 73 3b |ocs := @|myProcs;|
|00001c70| 0d 09 09 6d 79 50 72 6f | 63 73 2e 70 75 74 50 69 |...myPro|cs.putPi|
|00001c80| 63 50 72 6f 63 20 3a 3d | 20 40 50 75 74 50 49 43 |cProc :=| @PutPIC|
|00001c90| 54 44 61 74 61 3b 0d 09 | 09 6d 79 44 65 76 20 3a |TData;..|.myDev :|
|00001ca0| 3d 20 47 65 74 4d 61 69 | 6e 44 65 76 69 63 65 3b |= GetMai|nDevice;|
|00001cb0| 20 7b 20 74 6f 20 67 65 | 74 20 74 6f 20 73 63 72 | { to ge|t to scr|
|00001cc0| 65 65 6e 20 7d 0d 09 09 | 62 69 74 50 74 72 20 3a |een }...|bitPtr :|
|00001cd0| 3d 20 42 69 74 4d 61 70 | 50 74 72 28 6d 79 44 65 |= BitMap|Ptr(myDe|
|00001ce0| 76 5e 5e 2e 67 64 50 4d | 61 70 5e 29 0d 09 45 4e |v^^.gdPM|ap^)..EN|
|00001cf0| 44 20 45 4c 53 45 20 42 | 45 47 49 4e 0d 09 09 4f |D ELSE B|EGIN...O|
|00001d00| 70 65 6e 70 6f 72 74 28 | 67 72 61 66 50 74 72 28 |penport(|grafPtr(|
|00001d10| 77 50 6f 72 74 50 6c 75 | 73 50 74 72 29 29 3b 20 |wPortPlu|sPtr)); |
|00001d20| 7b 20 4c 65 74 73 20 67 | 65 74 20 61 6e 20 6f 6c |{ Lets g|et an ol|
|00001d30| 64 20 73 74 79 6c 65 20 | 70 6f 72 74 20 7d 0d 09 |d style |port }..|
|00001d40| 09 53 65 74 53 74 64 50 | 72 6f 63 73 28 6d 79 4f |.SetStdP|rocs(myO|
|00001d50| 6c 64 50 72 6f 63 73 29 | 3b 20 7b 20 73 65 74 20 |ldProcs)|; { set |
|00001d60| 70 72 6f 63 73 20 7d 0d | 09 09 67 72 61 66 50 74 |procs }.|..grafPt|
|00001d70| 72 28 77 50 6f 72 74 50 | 6c 75 73 50 74 72 29 5e |r(wPortP|lusPtr)^|
|00001d80| 2e 67 72 61 66 50 72 6f | 63 73 20 3a 3d 20 40 6d |.grafPro|cs := @m|
|00001d90| 79 4f 6c 64 50 72 6f 63 | 73 3b 0d 09 09 6d 79 4f |yOldProc|s;...myO|
|00001da0| 6c 64 50 72 6f 63 73 2e | 70 75 74 50 69 63 50 72 |ldProcs.|putPicPr|
|00001db0| 6f 63 20 3a 3d 20 40 50 | 75 74 50 49 43 54 44 61 |oc := @P|utPICTDa|
|00001dc0| 74 61 3b 0d 09 09 62 69 | 74 50 74 72 20 3a 3d 20 |ta;...bi|tPtr := |
|00001dd0| 42 69 74 4d 61 70 50 74 | 72 28 40 77 50 6f 72 74 |BitMapPt|r(@wPort|
|00001de0| 50 6c 75 73 50 74 72 5e | 2e 54 52 55 45 50 6f 72 |PlusPtr^|.TRUEPor|
|00001df0| 74 2e 70 6f 72 74 50 69 | 78 4d 61 70 29 0d 09 45 |t.portPi|xMap)..E|
|00001e00| 4e 44 3b 0d 0d 09 43 6c | 69 70 52 65 63 74 28 62 |ND;...Cl|ipRect(b|
|00001e10| 69 74 50 74 72 5e 2e 62 | 6f 75 6e 64 73 29 3b 20 |itPtr^.b|ounds); |
|00001e20| 7b 20 4a 75 73 74 20 69 | 6e 20 63 61 73 65 2c 20 |{ Just i|n case, |
|00001e30| 6d 61 6b 65 20 73 75 72 | 65 20 63 6c 69 70 20 72 |make sur|e clip r|
|00001e40| 65 67 69 6f 6e 20 69 73 | 20 4f 4b 2e 20 7d 0d 09 |egion is| OK. }..|
|00001e50| 0d 09 70 69 63 74 48 61 | 6e 64 20 3a 3d 20 4f 70 |..pictHa|nd := Op|
|00001e60| 65 6e 50 69 63 74 75 72 | 65 28 62 69 74 50 74 72 |enPictur|e(bitPtr|
|00001e70| 5e 2e 62 6f 75 6e 64 73 | 29 3b 0d 09 0d 09 7b 20 |^.bounds|);....{ |
|00001e80| 4f 6e 20 61 20 4d 61 63 | 69 6e 74 6f 73 68 20 49 |On a Mac|intosh I|
|00001e90| 49 20 2b 20 63 6f 6c 6f | 72 20 70 6f 72 74 20 4f |I + colo|r port O|
|00001ea0| 70 65 6e 50 69 63 74 75 | 72 65 20 66 61 69 6c 73 |penPictu|re fails|
|00001eb0| 20 69 66 20 74 68 65 20 | 68 65 61 70 20 0d 09 64 | if the |heap ..d|
|00001ec0| 6f 65 73 6e 27 74 20 68 | 61 76 65 20 61 74 20 6c |oesn't h|ave at l|
|00001ed0| 65 61 73 74 20 31 30 30 | 30 20 62 79 74 65 73 20 |east 100|0 bytes |
|00001ee0| 66 72 65 65 2c 20 73 6f | 20 77 65 20 62 65 74 74 |free, so| we bett|
|00001ef0| 65 72 20 63 68 65 63 6b | 20 0d 09 69 66 20 77 65 |er check| ..if we|
|00001f00| 20 68 61 76 65 20 61 20 | 76 61 6c 69 64 20 68 61 | have a |valid ha|
|00001f10| 6e 64 6c 65 20 20 20 20 | 20 20 20 20 20 7d 0d 0d |ndle    |     }..|
|00001f20| 09 49 46 20 70 69 63 74 | 48 61 6e 64 20 3c 3e 20 |.IF pict|Hand <> |
|00001f30| 4e 49 4c 20 54 48 45 4e | 20 42 45 47 49 4e 0d 09 |NIL THEN| BEGIN..|
|00001f40| 09 77 50 6f 72 74 50 6c | 75 73 2e 47 44 53 74 75 |.wPortPl|us.GDStu|
|00001f50| 66 66 2e 70 48 61 6e 64 | 20 3a 3d 20 70 69 63 74 |ff.pHand| := pict|
|00001f60| 48 61 6e 64 3b 20 7b 20 | 6e 6f 77 20 77 65 20 68 |Hand; { |now we h|
|00001f70| 61 76 65 20 61 20 68 61 | 6e 64 6c 65 20 7d 0d 09 |ave a ha|ndle }..|
|00001f80| 0d 09 09 7b 20 43 6f 70 | 79 42 69 74 73 20 77 69 |...{ Cop|yBits wi|
|00001f90| 6c 6c 20 63 61 6c 6c 20 | 6f 75 72 20 70 72 6f 63 |ll call |our proc|
|00001fa0| 65 64 75 72 65 20 7d 0d | 09 09 43 6f 70 79 42 69 |edure }.|..CopyBi|
|00001fb0| 74 73 28 62 69 74 50 74 | 72 5e 2c 20 62 69 74 50 |ts(bitPt|r^, bitP|
|00001fc0| 74 72 5e 2c 20 62 69 74 | 50 74 72 5e 2e 62 6f 75 |tr^, bit|Ptr^.bou|
|00001fd0| 6e 64 73 2c 20 62 69 74 | 50 74 72 5e 2e 62 6f 75 |nds, bit|Ptr^.bou|
|00001fe0| 6e 64 73 2c 20 73 72 63 | 43 6f 70 79 2c 20 4e 49 |nds, src|Copy, NI|
|00001ff0| 4c 29 3b 0d 09 0d 09 09 | 43 6c 6f 73 65 50 69 63 |L);.....|ClosePic|
|00002000| 74 75 72 65 3b 0d 09 0d | 09 7b 20 57 65 20 6e 65 |ture;...|.{ We ne|
|00002010| 65 64 20 74 68 69 73 20 | 6c 61 74 65 72 20 74 6f |ed this |later to|
|00002020| 20 63 6f 6d 70 6c 65 74 | 65 20 66 69 6c 65 20 7d | complet|e file }|
|00002030| 0d 09 09 73 61 76 65 50 | 69 63 74 53 69 7a 65 46 |...saveP|ictSizeF|
|00002040| 72 61 6d 65 20 3a 3d 20 | 70 69 63 74 48 61 6e 64 |rame := |pictHand|
|00002050| 5e 5e 3b 20 0d 09 0d 09 | 09 4b 69 6c 6c 50 69 63 |^^; ....|.KillPic|
|00002060| 74 75 72 65 28 70 69 63 | 74 48 61 6e 64 29 20 7b |ture(pic|tHand) {|
|00002070| 20 72 65 6c 65 61 73 65 | 20 61 6c 6c 20 6d 65 6d | release| all mem|
|00002080| 6f 72 79 20 7d 0d 09 09 | 0d 09 45 4e 44 20 45 4c |ory }...|..END EL|
|00002090| 53 45 20 7b 20 6e 6f 20 | 70 69 63 74 75 72 65 20 |SE { no |picture |
|000020a0| 73 61 76 65 64 20 73 6f | 20 77 65 20 68 61 76 65 |saved so| we have|
|000020b0| 20 74 6f 20 6b 69 6c 6c | 20 74 68 65 20 66 69 6c | to kill| the fil|
|000020c0| 65 20 7d 0d 09 09 77 50 | 6f 72 74 50 6c 75 73 2e |e }...wP|ortPlus.|
|000020d0| 47 44 53 74 75 66 66 2e | 66 69 6c 65 4f 4b 20 3a |GDStuff.|fileOK :|
|000020e0| 3d 20 46 41 4c 53 45 3b | 0d 0d 09 7b 20 4e 6f 77 |= FALSE;|...{ Now|
|000020f0| 20 77 65 20 70 72 6f 63 | 65 65 64 20 74 6f 20 63 | we proc|eed to c|
|00002100| 6c 65 61 6e 20 75 70 20 | 61 6e 64 20 74 6f 20 72 |lean up |and to r|
|00002110| 65 73 74 6f 72 65 20 74 | 68 65 20 70 6f 72 74 20 |estore t|he port |
|00002120| 7d 0d 09 67 72 61 66 50 | 74 72 28 77 50 6f 72 74 |}..grafP|tr(wPort|
|00002130| 50 6c 75 73 50 74 72 29 | 5e 2e 67 72 61 66 50 72 |PlusPtr)|^.grafPr|
|00002140| 6f 63 73 20 3a 3d 20 4e | 49 4c 3b 0d 09 53 65 74 |ocs := N|IL;..Set|
|00002150| 50 6f 72 74 28 6f 6c 64 | 50 6f 72 74 29 3b 0d 09 |Port(old|Port);..|
|00002160| 49 46 20 74 68 65 57 6f | 72 6c 64 2e 68 61 73 43 |IF theWo|rld.hasC|
|00002170| 6f 6c 6f 72 51 44 20 54 | 48 45 4e 0d 09 09 7b 20 |olorQD T|HEN...{ |
|00002180| 4c 65 74 73 20 67 65 74 | 20 72 69 64 20 6f 66 20 |Lets get| rid of |
|00002190| 74 68 65 20 63 6f 6c 6f | 72 20 70 6f 72 74 20 7d |the colo|r port }|
|000021a0| 0d 09 09 43 6c 6f 73 65 | 43 70 6f 72 74 28 43 47 |...Close|Cport(CG|
|000021b0| 72 61 66 50 74 72 28 77 | 50 6f 72 74 50 6c 75 73 |rafPtr(w|PortPlus|
|000021c0| 50 74 72 29 29 0d 09 45 | 4c 53 45 0d 09 09 43 6c |Ptr))..E|LSE...Cl|
|000021d0| 6f 73 65 50 6f 72 74 28 | 67 72 61 66 50 74 72 28 |osePort(|grafPtr(|
|000021e0| 77 50 6f 72 74 50 6c 75 | 73 50 74 72 29 29 3b 20 |wPortPlu|sPtr)); |
|000021f0| 7b 6f 72 20 67 65 74 20 | 72 69 64 20 6f 66 20 74 |{or get |rid of t|
|00002200| 68 65 20 6e 6f 72 6d 61 | 6c 20 70 6f 72 74 7d 0d |he norma|l port}.|
|00002210| 0d 09 7b 20 61 66 74 65 | 72 20 65 76 65 72 79 74 |..{ afte|r everyt|
|00002220| 68 69 6e 67 20 69 73 20 | 62 61 63 6b 20 69 6e 20 |hing is |back in |
|00002230| 67 6f 6f 64 20 73 68 61 | 70 65 20 77 65 20 63 61 |good sha|pe we ca|
|00002240| 6e 20 63 68 65 63 6b 20 | 69 66 20 74 68 65 20 63 |n check |if the c|
|00002250| 6f 70 79 62 69 74 73 20 | 64 61 74 61 0d 09 77 65 |opybits |data..we|
|00002260| 6e 74 20 74 6f 20 64 69 | 73 6b 20 61 20 4f 2e 4b |nt to di|sk a O.K|
|00002270| 2e 20 61 6e 64 20 69 66 | 20 74 68 65 72 65 20 69 |. and if| there i|
|00002280| 73 20 61 20 70 69 63 74 | 75 72 65 20 61 74 20 61 |s a pict|ure at a|
|00002290| 6c 6c 20 7d 0d 09 0d 09 | 49 46 20 4e 4f 54 20 28 |ll }....|IF NOT (|
|000022a0| 77 50 6f 72 74 50 6c 75 | 73 2e 47 44 53 74 75 66 |wPortPlu|s.GDStuf|
|000022b0| 66 2e 66 69 6c 65 4f 4b | 29 20 54 48 45 4e 0d 09 |f.fileOK|) THEN..|
|000022c0| 09 44 65 61 74 68 4b 69 | 73 73 3b 20 7b 65 72 72 |.DeathKi|ss; {err|
|000022d0| 6f 72 20 77 68 69 6c 65 | 20 73 61 76 69 6e 67 20 |or while| saving |
|000022e0| 66 69 6c 65 2c 20 65 78 | 69 74 20 7d 0d 09 0d 09 |file, ex|it }....|
|000022f0| 49 46 20 53 65 74 46 50 | 6f 73 28 67 6c 6f 62 61 |IF SetFP|os(globa|
|00002300| 6c 52 65 66 2c 20 66 73 | 46 72 6f 6d 53 74 61 72 |lRef, fs|FromStar|
|00002310| 74 2c 20 35 31 32 29 20 | 3c 3e 20 6e 6f 45 72 72 |t, 512) |<> noErr|
|00002320| 20 54 48 45 4e 0d 09 09 | 44 65 61 74 68 4b 69 73 | THEN...|DeathKis|
|00002330| 73 3b 20 7b 65 72 72 6f | 72 20 77 68 69 6c 65 20 |s; {erro|r while |
|00002340| 70 6f 73 69 74 69 6f 6e | 69 6e 67 20 66 69 6c 65 |position|ing file|
|00002350| 2c 20 65 78 69 74 20 7d | 0d 09 0d 09 6c 6f 6e 67 |, exit }|....long|
|00002360| 43 6f 75 6e 74 20 3a 3d | 20 53 69 7a 65 4f 66 28 |Count :=| SizeOf(|
|00002370| 50 69 63 74 75 72 65 29 | 3b 0d 09 49 46 20 46 53 |Picture)|;..IF FS|
|00002380| 57 72 69 74 65 28 67 6c | 6f 62 61 6c 52 65 66 2c |Write(gl|obalRef,|
|00002390| 20 6c 6f 6e 67 43 6f 75 | 6e 74 2c 20 40 73 61 76 | longCou|nt, @sav|
|000023a0| 65 50 69 63 74 53 69 7a | 65 46 72 61 6d 65 29 20 |ePictSiz|eFrame) |
|000023b0| 3c 3e 20 6e 6f 45 72 72 | 20 54 48 45 4e 0d 09 09 |<> noErr| THEN...|
|000023c0| 44 65 61 74 68 4b 69 73 | 73 3b 20 7b 65 72 72 6f |DeathKis|s; {erro|
|000023d0| 72 20 77 68 69 6c 65 20 | 77 72 69 74 69 6e 67 20 |r while |writing |
|000023e0| 70 69 63 74 75 72 65 20 | 73 69 7a 65 20 61 6e 64 |picture |size and|
|000023f0| 20 72 65 63 74 20 74 6f | 20 66 69 6c 65 2c 20 65 | rect to| file, e|
|00002400| 78 69 74 20 7d 0d 09 0d | 09 49 46 20 46 53 43 6c |xit }...|.IF FSCl|
|00002410| 6f 73 65 28 67 6c 6f 62 | 61 6c 52 65 66 29 20 3c |ose(glob|alRef) <|
|00002420| 3e 20 6e 6f 45 72 72 20 | 54 48 45 4e 20 7b 20 6e |> noErr |THEN { n|
|00002430| 6f 77 20 63 6c 6f 73 65 | 20 74 68 65 20 66 69 6c |ow close| the fil|
|00002440| 65 20 7d 0d 09 09 44 65 | 61 74 68 4b 69 73 73 3b |e }...De|athKiss;|
|00002450| 20 7b 65 72 72 6f 72 20 | 77 68 69 6c 65 20 63 6c | {error |while cl|
|00002460| 6f 73 69 6e 67 20 66 69 | 6c 65 2c 20 65 78 69 74 |osing fi|le, exit|
|00002470| 20 7d 0d 0d 45 4e 44 3b | 20 7b 50 49 43 54 4f 75 | }..END;| {PICTOu|
|00002480| 74 7d 0d 0d 45 4e 44 2e | 20 7b 20 55 6e 69 74 20 |t}..END.| { Unit |
|00002490| 46 4b 45 59 20 7d 0d 00 | 00 00 00 00 00 00 00 00 |FKEY }..|........|
|000024a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 01 00 00 00 07 4a | 00 00 06 4a 00 00 00 7c |.......J|...J...||
|00002510| da c4 60 42 42 6d da c8 | 42 ad da c4 24 50 20 52 |..`BBm..|B...$P R|
|00002520| 4a a8 00 08 66 10 48 78 | 00 01 42 a7 20 52 2f 10 |J...f.Hx|..B. R/.|
|00002530| 0c 53 63 72 65 65 6e 46 | 4b 45 59 2e 70 46 02 00 |.ScreenF|KEY.pF..|
|00002540| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 60 |..TEXTMP|S .....`|
|00002550| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 60 |..TEXTMP|S .....`|
|00002560| 1b ef 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 a1 4a f5 f0 00 00 | 24 17 00 00 07 c6 66 0c |...J....|$.....f.|
|00002580| 42 6d da c8 70 09 2b 40 | da c4 60 4c 42 6d da c8 |Bm..p.+@|..`LBm..|
|00002590| 42 ad da c4 59 8f 2f 0a | 4e ba ff 5e 20 1f 24 00 |B...Y./.|N..^ .$.|
|000025a0| 2f 02 48 78 66 06 20 52 | 20 50 2f 10 4e ba f0 c0 |/.Hxf. R| P/.N...|
|000025b0| 22 52 20 51 4a a8 00 08 | 66 0e 42 a7 2f 02 20 51 |"R QJ...|f.B./. Q|
|000025c0| 2f 10 4e ba f4 da 60 10 | 2f 02 2f 09 20 51 20 68 |/.N...`.|/./. Q h|
|000025d0| 00 08 20 68 00 10 4e 90 | 4c ee 04 00 ff fc 4e 5e |.. h..N.|L.....N^|
|000025e0| 20 5f 58 8f 4e d0 d0 4c | 43 52 55 4e 43 48 4a 6d | _X.N..L|CRUNCHJm|
|000025f0| da c8 67 08 3f 6d da c8 | 00 04 60 06 3f 6d da c6 |..g.?m..|..`.?m..|
|00002600| 00 00 02 b2 00 69 67 d0 | f3 ff ff ff 50 72 6f 6a |.....ig.|....Proj|
|00002610| 01 00 00 36 01 00 01 ea | 00 00 00 00 00 00 00 00 |...6....|........|
|00002620| 01 00 06 6f 00 00 00 00 | 01 00 02 b2 00 00 00 00 |...o....|........|
|00002630| a1 4f 01 11 00 6f 00 43 | ff af 00 58 70 83 87 99 |.O...o.C|...Xp...|
|00002640| 12 ff 7f ff 7f ff ff ff | ff ff 01 00 00 72 ff ff |........|.....r..|
|00002650| ff ff 01 00 00 5e 01 00 | 01 65 ff ff 00 00 00 00 |.....^..|.e......|
|00002660| 09 53 00 00 00 04 00 63 | 01 00 ff ff 01 00 00 36 |.S.....c|.......6|
|00002670| 03 6e 05 00 0f 2e 00 72 | 6a dc 5c 82 bf ff 29 20 |.n.....r|j.\...) |
|00002680| 7c 20 ff ff ff ff 01 00 | 01 22 ff ff ff ff 01 00 || ......|."......|
|00002690| 01 06 01 00 01 53 ff ff | 00 00 00 00 0a 05 00 61 |.....S..|.......a|
|000026a0| 4f 2e b7 ff ff ff 4d 50 | 57 20 01 00 00 be ff ff |O.....MP|W ......|
|000026b0| ff ff 01 00 00 be 05 00 | 13 26 01 00 03 65 00 00 |........|.&...e..|
|000026c0| 00 63 00 73 68 83 3f ff | ff ff 00 3c 00 23 ff ff |.c.sh.?.|...<.#..|
|000026d0| ff ff 01 00 00 e2 01 00 | 00 e2 00 00 00 10 01 00 |........|........|
|000026e0| 03 3a 00 04 00 20 00 2e | 65 20 0f df ff ff 72 66 |.:... ..|e ....rf|
|000026f0| 61 63 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |ac......|........|
|00002700| 00 98 01 00 03 00 00 06 | 00 23 00 00 00 08 00 23 |........|.#.....#|
|00002710| 01 00 ff ff 01 00 00 72 | 06 3e 01 00 00 9a 01 00 |.......r|.>......|
|00002720| 00 9a ff ff ff ff 00 22 | 6a 4c 86 63 6d ff 76 3a |......."|jL.cm.v:|
|00002730| 53 74 01 00 01 ae ff ff | ff ff ff ff ff ff 01 00 |St......|........|
|00002740| 01 92 01 00 01 65 ff ff | 00 00 00 00 0a da 00 31 |.....e..|.......1|
|00002750| 09 6c 24 c8 7f ff 20 2d | 2d 2d 01 00 01 6e ff ff |.l$... -|--...n..|
|00002760| ff ff 01 00 01 6e 05 00 | 39 44 01 00 03 63 00 00 |.....n..|9D...c..|
|00002770| 00 61 00 64 6a d8 77 9c | ff ff 00 1c 00 23 ff ff |.a.dj.w.|.....#..|
|00002780| ff ff ff ff ff ff ff ff | ff ff 01 00 01 06 01 00 |........|........|
|00002790| 03 00 00 6c 00 00 00 00 | 00 74 00 58 01 00 ff ff |...l....|.t.X....|
|000027a0| 01 00 01 22 06 23 01 00 | 01 4a 01 00 01 4a ff ff |...".#..|.J...J..|
|000027b0| ff ff 00 74 6a 64 4b ff | ff ff ed 58 00 00 ff ff |...tjdK.|...X....|
|000027c0| ff ff ff ff ff ff ff ff | ff ff 01 00 01 d6 01 00 |........|........|
|000027d0| 01 00 ff ff 00 00 00 00 | 0b 22 00 00 00 04 00 00 |........|."......|
|000027e0| 01 00 ff ff 01 00 01 ae | 03 61 01 00 01 92 00 38 |........|.a.....8|
|000027f0| 4a 50 9e c7 ff ff 00 00 | 00 25 01 00 02 1e ff ff |JP......|.%......|
|00002800| ff ff ff ff ff ff 00 00 | 01 82 01 00 04 01 00 01 |........|........|
|00002810| ff ff ff ff 02 00 00 08 | ff ff 00 00 00 00 00 00 |........|........|
|00002820| 00 00 00 20 4e c6 52 86 | dc 5f ed 58 00 25 ff ff |... N.R.|._.X.%..|
|00002830| ff ff ff ff ff ff ff ff | ff ff 00 00 01 82 01 00 |........|........|
|00002840| 04 01 00 01 01 00 02 52 | 02 00 00 0e ff ff 00 00 |.......R|........|
|00002850| 00 00 00 00 00 00 00 6e | 5b 8b c8 97 ff ff 00 0c |.......n|[.......|
|00002860| 00 23 01 00 02 82 ff ff | ff ff 01 00 02 82 06 00 |.#......|........|
|00002870| 01 0a 01 00 02 00 00 64 | ff ff 00 02 00 00 00 0a |.......d|........|
|00002880| 00 00 00 18 00 23 00 58 | 71 e0 85 1e d4 7f 00 00 |.....#.X|q.......|
|00002890| 00 00 ff ff ff ff ff ff | ff ff ff ff ff ff 00 00 |........|........|
|000028a0| 00 10 01 00 02 00 0f 72 | ff ff 00 02 00 00 00 08 |.......r|........|
|000028b0| 41 70 70 6c 69 63 00 00 | 01 00 00 e7 03 18 26 6e |Applic..|......&n|
|000028c0| 00 08 2e 2e 00 0c 2c 2e | 00 10 20 47 70 00 20 80 |......,.|.. Gp. .|
|000028d0| 70 00 26 80 4a 86 67 00 | 00 8c 28 46 4a 2c 00 0e |p.&.J.g.|..(FJ,..|
|000028e0| 66 3c 70 01 b0 2c 00 0f | 66 10 4a ac 00 10 67 08 |f<p..,..|f.J...g.|
|000028f0| 20 6c 00 10 26 a8 00 20 | 60 6a bc ad dd a4 66 08 | l..&.. |`j....f.|
|00002900| 26 bc 00 00 00 ff 60 5c | bc ad e0 d8 66 0e 20 47 |&.....`\|....f. G|
|00002910| 20 bc ff ff 80 00 26 bc | 00 00 7f ff 60 46 70 01 | .....&.|....`Fp.|
|00002920| b0 2c 00 0e 66 0c 20 47 | 20 ac 00 14 26 ac 00 18 |.,..f. G| ...&...|
|00002930| 60 32 10 2c 00 0e 48 80 | 4a 40 6b 18 b0 7c 00 0f |`2.,..H.|J@k..|..|
|00002940| 6e 12 41 fa 00 3c 32 00 | e6 49 44 41 01 30 10 ff |n.A..<2.|.IDA.0..|
|00002950| 0a 3c 00 04 66 0e 20 47 | 70 00 20 80 30 2c 00 10 |.<..f. G|p. .0,..|
|00002960| 48 c0 26 80 4c df 18 c0 | 4e 5e 20 5f de fc 00 0c |H.&.L...|N^ _....|
|00002970| 4e d0 89 47 45 54 42 4f | 55 4e 44 53 00 02 0c 00 |N..GETBO|UNDS....|
|00002980| 00 00 4e 56 00 00 2f 0c | 42 2e 00 0c 4a ae 00 08 |..NV../.|B...J...|
|00002990| 67 44 28 6e 00 08 70 0a | b0 2c 00 0e 57 c0 72 0b |gD(n..p.|.,..W.r.|
|000029a0| b2 2c 00 0e 57 c1 80 01 | 67 08 1d 7c 00 01 00 0c |.,..W...|g..|....|
|000029b0| 60 24 70 05 b0 2c 00 0e | 66 1c 00 00 02 40 9f cd |`$p..,..|f....@..|
|000029c0| fc 6a a1 4f 01 15 0c 5d | ff ff ff ff 4a 05 08 01 |.j.O...]|....J...|
|000029d0| 00 00 00 00 00 00 00 01 | 00 00 00 06 00 26 27 86 |........|.....&'.|
|000029e0| 00 26 3e ba 00 06 4e ba | fc b6 17 53 74 61 6e 64 |.&>...N.|...Stand|
|000029f0| 61 72 64 20 50 61 73 63 | 61 6c 20 53 79 6d 62 6f |ard Pasc|al Symbo|
|00002a00| 6c 73 2f 10 4e ad 03 7a | 2b 5f c6 78 20 6d c6 78 |ls/.N..z|+_.x m.x|
|00002a10| 1d 50 00 0d 52 ad c6 78 | 2e 1f 4e 5e 2e 9f 4e 75 |.P..R..x|..N^..Nu|
|00002a20| 88 4e 45 58 54 42 59 54 | 45 00 00 26 71 f4 00 26 |.NEXTBYT|E..&q..&|
|00002a30| 74 a6 00 1f a1 4f 01 11 | 04 46 4b 45 59 43 ba 36 |t....O..|.FKEYC.6|
|00002a40| 00 41 d9 f4 00 00 74 20 | 00 43 22 00 00 00 74 20 |.A....t |.C"...t |
|00002a50| 00 00 ff ff 00 01 00 01 | 00 00 00 19 6d ff 74 20 |........|....m.t |
|00002a60| 00 00 08 d2 00 01 00 01 | 00 26 73 62 00 43 ba e6 |........|.&sb.C..|
|00002a70| 00 25 00 00 00 43 bb f8 | 00 00 00 00 00 00 00 00 |.%...C..|........|
|00002a80| 00 00 a1 3c 86 3c 08 50 | 41 43 4b 49 4e 54 46 41 |...<.<.P|ACKINTFA|
|00002a90| d9 f4 00 00 74 20 00 43 | 22 00 00 00 74 20 00 00 |....t .C|"...t ..|
|00002aa0| ff ff 00 01 00 01 00 00 | 00 19 6d ff 74 20 00 00 |........|..m.t ..|
|00002ab0| 08 d2 00 01 00 01 00 26 | 73 62 00 43 ba e6 00 25 |.......&|sb.C...%|
|00002ac0| 00 00 00 43 bb f8 00 00 | 00 00 00 00 00 00 00 00 |...C....|........|
|00002ad0| a1 3c 86 2f 08 54 4f 4f | 4c 49 4e 54 46 41 d9 f4 |.<./.TOO|LINTFA..|
|00002ae0| 00 00 74 20 00 43 22 00 | 00 00 74 20 00 00 ff ff |..t .C".|..t ....|
|00002af0| 00 01 00 01 00 00 00 19 | 6d ff 74 20 00 00 08 d2 |........|m.t ....|
|00002b00| 00 01 00 01 00 26 73 62 | 00 43 ba e6 00 25 00 00 |.....&sb|.C...%..|
|00002b10| 00 43 bb f8 00 00 00 00 | 00 00 00 00 00 00 a1 3c |.C......|.......<|
|00002b20| 86 23 06 4f 53 49 4e 54 | 46 54 46 41 d9 f4 00 00 |.#.OSINT|FTFA....|
|00002b30| 74 20 00 43 22 00 00 00 | 74 20 00 00 ff ff 00 01 |t .C"...|t ......|
|00002b40| 00 01 00 00 00 19 6d ff | 74 20 00 00 08 d2 00 01 |......m.|t ......|
|00002b50| 00 01 00 26 73 62 00 43 | ba e6 00 25 00 00 00 43 |...&sb.C|...%...C|
|00002b60| bb f8 00 00 00 00 00 00 | 00 00 00 03 a1 3c 86 1f |........|.....<..|
|00002b70| 09 51 55 49 43 4b 44 52 | 41 57 d9 f4 00 00 74 20 |.QUICKDR|AW....t |
|00002b80| 00 43 22 00 00 00 74 20 | 00 00 ff ff 00 01 00 01 |.C"...t |........|
|00002b90| 00 00 00 19 6d ff 74 20 | 00 00 08 d2 00 01 00 01 |....m.t |........|
|00002ba0| 00 26 73 62 00 43 ba e6 | 00 25 00 00 00 43 bb f8 |.&sb.C..|.%...C..|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 01 a1 3c 86 1d 08 4d |........|...<...M|
|00002bc0| 45 4d 54 59 50 45 53 57 | d9 f4 00 00 74 20 00 43 |EMTYPESW|....t .C|
|00002bd0| 22 00 00 00 74 20 00 00 | ff ff 00 01 00 01 00 00 |"...t ..|........|
|00002be0| 00 19 6d ff 74 20 00 00 | 08 d2 00 01 00 01 00 26 |..m.t ..|.......&|
|00002bf0| 73 62 00 43 ba e6 00 25 | 00 00 00 43 bb f8 00 00 |sb.C...%|...C....|
|00002c00| 00 48 00 09 4d 6f 6e 61 | 63 6f 00 00 00 00 00 00 |.H..Mona|co......|
|00002c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c20| 00 00 00 00 00 06 00 04 | 00 2a 00 03 01 dd 02 7d |........|.*.....}|
|00002c30| 00 2a 00 03 01 ba 02 36 | a1 4f 00 fb 00 00 00 00 |.*.....6|.O......|
|00002c40| 00 00 00 00 00 00 00 00 | 01 00 00 00 01 00 00 00 |........|........|
|00002c50| 07 4a 00 00 06 4a 00 00 | 00 7c 00 1e 0e 80 08 d2 |.J...J..|.|......|
|00002c60| 00 00 00 1c 00 5e 00 01 | 75 6e 69 74 00 02 00 12 |.....^..|unit....|
|00002c70| 4d 50 53 52 00 00 00 36 | 00 03 00 00 00 00 00 00 |MPSR...6|........|
|00002c80| 00 00 00 00 00 06 00 0a | 00 00 02 b6 00 00 00 00 |........|........|
|00002c90| 00 00 00 17 00 00 03 ba | 00 00 00 00 03 ed ff ff |........|........|
|00002ca0| 00 00 05 fe 00 1f 47 f0 | 09 53 79 6d 62 54 61 62 |......G.|.SymbTab|
|00002cb0| 6c 65 0c 49 6e 63 6c 75 | 64 65 46 69 6c 65 73 06 |le.Inclu|deFiles.|
|00002cc0| 48 65 61 64 65 72 00 00 | 00 00 00 00 00 00 00 00 |Header..|........|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+